home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / me_cd25.zip / MUTT2.ZIP / BLOCK.MUT < prev    next >
Text File  |  1992-11-09  |  501b  |  21 lines
  1. ;; block.mut : routines to operate on blocks
  2. ;; C Durland    Public Domain
  3.  
  4. ;; !!! This really needs to take two marks and a bag id but I don't want to
  5. ;; figure out how to do the same thing as cut-line.
  6.  
  7. (include me2.h)
  8.  
  9. (defun
  10.   delete-region-as-block HIDDEN
  11.   {
  12.     (byte type)(small-int left-edge width height)(int size)    ;; RegionInfo
  13.  
  14.     (region-stats (loc type) THE-DOT THE-MARK TRUE)
  15.  
  16.     (beginning-of-line)
  17.     (clear-bag CUT-BUFFER)
  18.     (arg-prefix height)(cut-line)
  19.   }
  20. )
  21.